home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 2004 #11
/
Amiga Plus CD - 2004 - No. 11.iso
/
AmiSoft
/
Biz
/
swood
/
FW_Scripts.lha
/
FW_Scripts
/
PreviewToggle.rexx
< prev
Wrap
OS/2 REXX Batch file
|
2004-08-01
|
694b
|
33 lines
/* ==================================== */
/* FINAL WRITER AREXX MACRO */
/* Toggle between Crossbox and Preview */
/* $VER: PreviewToggle 1.0 (1.8.04) */
/* ==================================== */
Options Results
/* Get a list of all the selected objects. */
i = 0
FirstObject SELECTED
IF ( Result = 0 ) THEN EXIT
DO WHILE ( Result ~= 0 )
i = I + 1
Object.i = Result
NextObject Object.i SELECTED
END
x = 0
DO WHILE ( x < i )
x = x + 1
GetObjectType Object.x
objtype.x = Result
IF objtype.x = 1 THEN DO
GetObjectParams Object.x Display
IF RESULT = 'Crossbox' THEN SetObjectParams Object.x Display Preview
ELSE SetObjectParams Object.x Display Crossbox
END
END
Redraw